home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh2x / sh25.d64 / floppy-bag 801 (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  12KB  |  361 lines
  1. 100 REM********************************
  2. 102 REM*  DISKHUELLEN MPS 801         *
  3. 104 REM********************************
  4. 106 REM* EIN PROGRAMM ZUR HERSTELLUNG *
  5. 108 REM*  NEUER DISKETTENTASCHEN UND  *
  6. 110 REM*      AUFKLEBE-ETIKETTEN      *
  7. 112 REM********************************
  8. 124 REM*       JOHANN GUBESCH         *
  9. 126 REM*       HENGTEWEG 12           *
  10. 128 REM*       4420 COESFELD          *
  11. 130 REM*       02541/81472            *
  12. 132 REM********************************
  13. 134 GOSUB 160
  14. 136 GOSUB 190
  15. 138 IF Y=1 THEN GOSUB 500:GOSUB 530:GOSUB 796
  16. 140 DIM DB$(144):AX$="                    " :DIM NA$(144):XY=0
  17. 142 GOSUB 254
  18. 144 IF Y=2 THEN GOSUB 344:GOSUB 428:GOSUB 500:GOSUB 578:GOSUB 796
  19. 146 IF Y=3 THEN GOSUB 344:GOSUB 428:GOSUB 500:GOSUB 578:XY=1
  20. 148 IF Y=3 THEN GOSUB 254:GOSUB 344
  21. 150 IF Y=3 THEN GOSUB 428:GOSUB 500:GOSUB 726:GOSUB 796
  22. 152 IF Y=4 THEN GOSUB 344:GOSUB 428:GOSUB 500:GOSUB 726:GOSUB 796
  23. 154 IF Y=5 THEN GOSUB 344:GOSUB 500:GOSUB 672:GOSUB 796
  24. 156 END
  25. 158 REM ---- MODUL RAHMEN -------------
  26. 160 POKE53281,1:POKE53280,1:PRINTCHR$(142)
  27. 162 PRINT"[147]         **  FLOPPY-BAG 801  **         ";
  28. 164 PRINT"       FUER MPS 801 UND KOMPATIBLE      ";
  29. 166 PRINT" VON J.GUBESCH, COESFELD, FEBRUAR 1987  [146]"
  30. 168 POKE 646,0:PRINT"[145]";
  31. 170 FOR A=1TO16
  32. 172 PRINT"[221]                                      [221]";
  33. 174 NEXT
  34. 176 PRINT"[171][192][192][192][192][192][192][192][192][192][192][192][178][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][178][192][192][178][192][192][192][192][192][192][179]";
  35. 178 PRINT"[221]           [221]                [221]  [221]      [221]";
  36. 180 PRINT"[171][192][192][192][192][192][192][192][192][192][192][192][177][178][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][177][192][178][177][192][192][192][192][192][192][179]";
  37. 182 PRINT"[221]            [221]                 [221]       [221]";
  38. 184 PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][189][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145]"
  39. 186 RETURN
  40. 188 REM ---- MODUL AUSWAHLMENUE -------
  41. 190 PRINT:PRINT
  42. 192 PRINT "[145][145][145][145]                                [146]"
  43. 194 PRINT     "[145]   WAEHLEN SIE BITTE DEN GE -   "
  44. 196 PRINT      "      WUENSCHTEN AUSDRUCK       "
  45. 198 PRINT     "[145]            [146]( 1-5 )             "
  46. 200 PRINT      "                                "
  47. 202 PRINT"[145][145]"
  48. 204 PRINT"1[146]- TASCHE"
  49. 206 PRINT"[145]2[146]- TASCHE MIT AUFGEDRUCKTEM DI-"
  50. 208 PRINT"   RECTORY + ETIKETT"
  51. 210 PRINT"[145]3[146]- TASCHE MIT AUFGEDRUCKTEM DI-"
  52. 212 PRINT"   RECTORY + DIRECTORY FUER DIE "
  53. 214 PRINT"[145]   RUECKSEITE + 2 ETIKETTEN"
  54. 216 PRINT"4[146]- DIRECTORY + ETIKETT"
  55. 218 PRINT"[145]5[146]- ETIKETT"
  56. 220 GETAN$:IFAN$=""THEN 220
  57. 222 IF AN$="1" THEN Y=1:GOSUB 238:GOTO 234
  58. 224 IF AN$="2" THEN Y=2:GOSUB 238:GOTO 234
  59. 226 IF AN$="3" THEN Y=3:GOSUB 238:GOTO 234
  60. 228 IF AN$="4" THEN Y=4:GOSUB 238:GOTO 234
  61. 230 IF AN$="5" THEN Y=5:GOSUB 238:GOTO 234
  62. 232 GOTO 220
  63. 234 RETURN
  64. 236 REM ---- MODUL BEDIENERFELD FREI --
  65. 238 PRINT""
  66. 240 PRINT""
  67. 242 FOR T= 1TO 7
  68. 244 PRINT"                                      "
  69. 246 PRINT"[145]                                      "
  70. 248 NEXT
  71. 250 PRINT"                                      "
  72. 252 RETURN
  73. 254 REM ---- MODUL DIRECTORY LESEN ----
  74. 256 PRINT""     :AW$="                                "
  75. 258 PRINT"";AW$
  76. 260 PRINT"[145]";AW$
  77. 262 PRINT"";AW$
  78. 264 PRINT"[145]";AW$
  79. 266 PRINT"";AW$
  80. 268 PRINT"[145][145][145][145][145]  EINEN MOMENT BITTE -"
  81. 270 PRINT""
  82. 272 PRINT"[145]  ICH LESE DAS DIRECTORY EIN !"
  83. 274 IF XY=1 THEN GOSUB 320:GOTO 256
  84. 276 I=0:GB=1:CLOSE 15:OPEN 15,8,15:CLOSE 1:OPEN 1,8,0,"$0"
  85. 278 INPUT#15,T,K$,O,O:IF T<>0 THEN PRINT"[145][145][145]FLOPPYFEHLER:[146]";
  86. 280 IF T<>0 THEN PRINT"  ";K$:PRINT"[146]FLOPPY EIN - DISK REIN   "
  87. 282 IF T<>0 THEN PRINT "[145]        [146]TASTE DRUECKEN         "
  88. 284 IF T<>0 THEN POKE 198,0:WAIT 198,1:RUN 134
  89. 286 GET#1,DA$,DE$
  90. 288 GET#1,DA$,DE$:DB$(I+1)="":GET#1,DA$,DE$
  91. 290 C=0
  92. 292 IF DA$<>"" THEN C=ASC(DA$)
  93. 294 IF DE$<>"" THEN C=C+ASC(DE$)*256
  94. 296 FR$=MID$(STR$(C),2)
  95. 298 GET#1,DE$:IF DE$="" THEN ZA=I:GOTO 316
  96. 300 IF DE$<>CHR$(34) THEN 298
  97. 302 GET#1,DE$:IF DE$<>CHR$(34) THEN DB$(I)=DB$(I)+DE$:GOTO 302
  98. 304 GET#1,DE$:IF DE$=CHR$(32) THEN 304
  99. 306 DC$=""
  100. 308 DC$=DC$+DE$:GET#1,DE$:IF DE$<>"" THEN 308
  101. 310 IF GB=1 THEN ID$=LEFT$(DC$,2):GB=0
  102. 312 DB$(I)=LEFT$(DB$(I)+AX$,17)
  103. 314 I=I+1:GOTO 288
  104. 316 CLOSE 1:CLOSE 15
  105. 318 RETURN
  106. 320 PRINT""     :AW$="                                "
  107. 322 PRINT"";AW$
  108. 324 PRINT"[145]";AW$
  109. 326 PRINT"";AW$
  110. 328 PRINT"[145]";AW$
  111. 330 PRINT"";AW$
  112. 332 PRINT"[145][145][145][145][145]BITTE DISKETTE WENDEN "
  113. 334 PRINT""
  114. 336 PRINT"[145]           [146] TASTE         "
  115. 338 POKE 198,0:WAIT 198,1:XY=0
  116. 340 RETURN
  117. 342 REM ---- MODUL DATENEINGABE -------
  118. 344 PRINT""     :AW$="                                "
  119. 346 PRINT"";AW$
  120. 348 PRINT"[145]";AW$
  121. 350 PRINT"";AW$
  122. 352 PRINT"[145]";AW$
  123. 354 PRINT"";AW$
  124. 356 PRINT"[145][145][145][145][145]  BITTE GEBEN SIE FOLGENDE"
  125. 358 PRINT" DATEN EIN BZW. UEBERNEHMEN MIT"
  126. 360 PRINT"[145]          [146]RETURN"
  127. 362 CO$=" 64 ":MO$=" 64":FL$="1541":NR$="...."
  128. 364 POKE19,1:INPUT"DATUM      :[146] TT.MM.JJJJ[157][157][157][157][157][157][157][157][157][157]";TE$:POKE19,0
  129. 366 TE$=LEFT$(TE$,10)
  130. 368 HE$=LEFT$(DB$(0),16)
  131. 370 PRINT"[145]DISK-NAME  :[146] ";HE$:POKE19,1:INPUT"[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]";HE$
  132. 372 POKE19,0
  133. 374 HE$=LEFT$(HE$,16)
  134. 376 PRINT "DISK-NUMMER:[146] ";NR$;:POKE19,1:INPUT"[157][157][157][157]";NR$
  135. 378 POKE19,0
  136. 380 NR$=LEFT$(NR$,4 )
  137. 382 PRINT "[145]DISK-ID    :[146] ";ID$;:POKE19,1:INPUT"[157][157]";ID$
  138. 384 POKE19,0
  139. 386 ID$=LEFT$(ID$,2 )
  140. 388 PRINT "FLOPPY     :[146] ";FL$;:POKE19,1:INPUT"[157][157][157][157]";FL$
  141. 390 POKE19,0
  142. 392 FL$=LEFT$(FL$,4)
  143. 394 PRINT "[145]COMMODORE  :[146] ";CO$;:POKE19,1:INPUT"[157][157][157][157]";CO$
  144. 396 POKE19,0
  145. 398 CO$=LEFT$(CO$,4)
  146. 400 PRINT "MODUS      :[146] ";MO$;:POKE19,1:INPUT"[157][157][157]";MO$
  147. 402 POKE19,0
  148. 404 MO$=LEFT$(MO$,3)
  149. 406 PRINT "STIMMEN ALLE ANGABEN ? (J/N)"
  150. 408 GETAN$:IF AN$="" THEN 408
  151. 410 IF AN$="J" THEN 418
  152. 412 IF AN$="N" THEN PRINT:PRINT"[145][145][145][145]                              "
  153. 414 IFAN$="N" THEN  PRINT"[145][145][145][145][145][145][145][145][145][145][145][145]";:GOTO 364
  154. 416 GOTO 408
  155. 418 PRINT"";TE$;"";HE$;"";ID$;"";NR$;"FLOPPY  ";FL$;"";
  156. 420 PRINT" COMMODORE ";CO$;"";MO$;"'"
  157. 422 GOSUB 238
  158. 424 RETURN
  159. 426 REM ---- MODUL FILES BEARBEITEN ---
  160. 428 PRINT""     :AW$="                                "
  161. 430 PRINT"";AW$
  162. 432 PRINT"[145]";AW$
  163. 434 PRINT"";AW$
  164. 436 PRINT"[145]";AW$
  165. 438 PRINT"";AW$
  166. 440 PRINT   "[145][145][145][145][145][145][145]F1- FILENAME AENDERN"
  167. 442 PRINT"F3- FILENAME STREICHEN"
  168. 444 PRINT"[145]F5- FILENAME UEBERNEHMEN"
  169. 446 PRINT"F7- TRENNUNG EINFUEGEN"
  170. 448 PRINT"[145]                                "
  171. 450 X1=1:X=0:T=X
  172. 452 IF ZA>39 THEN ZA = 39
  173. 454 FOR T=0 TO ZA-2
  174. 456 PRINT"";X;"  ";LEFT$(DB$(X+X1),17);"[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][145][145][145][145]"
  175. 458 GETAN$:IF AN$="" THEN 458
  176. 460 IF AN$="[135]" THEN NA$(X)=LEFT$(DB$(X+X1),17):GOTO 484
  177. 462 IF AN$="[134]" THEN X=X-1:X1=X1+1
  178. 464 IF AN$="[134]" AND X<0 THEN X=-1
  179. 466 IF AN$="[134]" THEN 484
  180. 468 IF AN$="[133]" THEN PRINT"NEUER NAME:[146] .";:POKE19,1
  181. 470 IF AN$="[133]" THEN INPUT"[157]";NA$(X):POKE19,0:NA$(X)=LEFT$(NA$(X)    ,17)
  182. 472 IF AN$="[133]" THEN PRINT "[145][145]                                   "
  183. 474 IF AN$="[133]" THEN PRINT"[145][145][145][145][145][145]";:GOTO 484
  184. 476 IF AN$="[136]" THEN NA$(X)="================ "
  185. 478 IF AN$="[136]" THEN X1=X1-1:T=T-1
  186. 480 IF AN$="[136]" THEN GOTO 484
  187. 482 GOTO 458
  188. 484 X=X+1:IF X=38 THEN T=ZA-2
  189. 486 NEXT
  190. 488 PRINT  " KEINE FILES MEHR VORHANDEN"
  191. 490 FOR T=XTO38:NA$(T)="[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164] ":NEXT
  192. 492 POKE 198,0:WAIT 198,1
  193. 494 GOSUB 238
  194. 496 RETURN
  195. 498 REM ---- MODUL DRUCKVORBEREITUNG --
  196. 500 PRINT""     :AW$="                                "
  197. 502 PRINT"";AW$
  198. 504 PRINT"[145]";AW$
  199. 506 PRINT"";AW$
  200. 508 PRINT"[145]";AW$
  201. 510 PRINT"";AW$
  202. 512 PRINT"[145][145][145][145][145][145][145]DRUCKER EINGESCHALTET UND"
  203. 514 PRINT"PAPIER RICHTIG EINGESPANNT ?"
  204. 516 PRINT"[145](J/N)"
  205. 518 GETAN$:IF AN$="" THEN 518
  206. 520 IF AN$="J" THEN 524
  207. 522 GOTO 518
  208. 524 GOSUB 238
  209. 526 RETURN
  210. 528 REM ---- MODUL DR HUELLE ----------
  211. 530 PRINT""     :AW$="                                "
  212. 532 PRINT"";AW$
  213. 534 PRINT"[145]";AW$
  214. 536 PRINT"";AW$
  215. 538 PRINT"[145]";AW$
  216. 540 PRINT"";AW$
  217. 542 PRINT"[145][145][145][145][145]AUF GEHT'S -"
  218. 544 PRINT""
  219. 546 PRINT"[145]JETZT WIRD GEDRUCKT !"
  220. 548 PRINT"DISKETTEN-TASCHE"
  221. 550 OPEN4,4
  222. 552 PRINT#4,"[213]----------------------------------------------------------------[201]"
  223. 554 FOR T=1TO22
  224. 556 PRINT#4,"[165]    :                                                      :    [167]"
  225. 558 NEXT
  226. 560 PRINT#4,"[202]----[201]......................................................[213]----[203]"
  227. 562 FOR T=1TO28
  228. 564 PRINT#4,"     [221]                                                      [221]"
  229. 566 NEXT
  230. 568 PRINT#4,"     [202]------------------------------------------------------[203]"
  231. 570 CLOSE 4
  232. 572 GOSUB 238
  233. 574 RETURN
  234. 576 REM ---- MODUL DR HUELLE+DIR+ETI --
  235. 578 PRINT"":AW$="                                "
  236. 580 PRINT"";AW$
  237. 582 PRINT"[145]";AW$
  238. 584 PRINT"";AW$
  239. 586 PRINT"[145]";AW$
  240. 588 PRINT"";AW$
  241. 590 PRINT"[145][145][145][145][145]AUF GEHT'S -"
  242. 592 PRINT""
  243. 594 PRINT"[145]JETZT WIRD GEDRUCKT !"
  244. 596 PRINT"DISKETTEN-TASCHE MIT AUFGEDRUCKTEM"
  245. 598 PRINT"DIRECTORY UND AUFKLEBEETIKETT"
  246. 600 CLOSE 1:OPEN 1,4
  247. 602 PRINT#1,CHR$(145)
  248. 604 PRINT#1,"[213]----------------------------------------------------------------[201]
  249. 606 [152]1,"FN    :                                                      :    THEN"
  250. 608 [152]1,"FN    : "[199](14);HE$;[199](15);
  251. 610 [152]1,"    DISK-NR:";[199](14);NR$;[199](15);" :    THEN"
  252. 612 [152]1,"FN    : ";:[129] I[178]1 [164] 52:[152]1,"LEN";:[130]:[152]1," :    THEN"
  253. 614 [152]1,"FN    : "NA$(0);" ";NA$(13);" ";NA$(26); ":    THEN"
  254. 616 [152]1,"FN    : "NA$(1);" ";NA$(14);" ";NA$(27); ":    THEN"
  255. 618 [152]1,"FN    : "NA$(2);" ";NA$(15);" ";NA$(28); ":    THEN"
  256. 620 [152]1,"FN    : "NA$(3);" ";NA$(16);" ";NA$(29); ":    THEN"
  257. 622 [152]1,"FN    : "NA$(4);" ";NA$(17);" ";NA$(30); ":    THEN"
  258. 624 [152]1,"FN    : "NA$(5);" ";NA$(18);" ";NA$(31); ":    THEN"
  259. 626 [152]1,"FN    : "NA$(6);" ";NA$(19);" ";NA$(32); ":    THEN"
  260. 628 [152]1,"FN    : "NA$(7);" ";NA$(20);" ";NA$(33); ":    THEN"
  261. 630 [152]1,"FN    : "NA$(8);" ";NA$(21);" ";NA$(34); ":    THEN"
  262. 632 [152]1,"FN    : "NA$(9);" ";NA$(22);" ";NA$(35); ":    THEN"
  263. 634 [152]1,"FN    : "NA$(10);" ";NA$(23);" ";NA$(36); ":    THEN"
  264. 636 [152]1,"FN    : "NA$(11);" ";NA$(24);" ";NA$(37); ":    THEN"
  265. 638 [152]1,"FN    : "NA$(12);" ";NA$(25);" ";NA$(38); ":    THEN"
  266. 640 [152]1,"FN    : ";:[129] I[178]1 [164] 52:[152]1,"LEN";:[130]:[152]1," :    THEN"
  267. 642 FR$[178][200](FR$[170]"   ",3)
  268. 644 [152]1,"FN    : STAND:"TE$"                    "FR$"  BLOCKS FREE :    THEN"
  269. 646 [152]1,"FN    :                                                      :    THEN
  270. 648 PRINT#1,"[165]    :                                                      :    [167]
  271. 650 [152]1,"FN    :                                                      :    THEN
  272. 652 PRINT#1,"[165]    :                                                      :    [167]
  273. 654 [152]1,"MID$----RIGHT$......................................................(null)----(null)
  274. 656 FOR T=1TO28
  275. 658 PRINT#1,"     [221]                                                      [221]"
  276. 660 NEXT
  277. 662 PRINT#1,"     [202]------------------------------------------------------[203]"
  278. 664 PRINTCHR$(10)CHR$(10)CHR$(10)
  279. 666 GOSUB 696:
  280. 668 RETURN
  281. 670 REM ---- MODUL DR ETIKETT ---------
  282. 672 PRINT"":AW$="                                "
  283. 674 PRINT"";AW$
  284. 676 PRINT"[145]";AW$
  285. 678 PRINT"";AW$
  286. 680 PRINT"[145]";AW$
  287. 682 PRINT"";AW$
  288. 684 PRINT"[145][145][145][145][145]AUF GEHT'S -"
  289. 686 PRINT""
  290. 688 PRINT"[145]JETZT WIRD GEDRUCKT !"
  291. 690 PRINT"DISKETTEN-ETIKETT"
  292. 692 CLOSE 1:OPEN 1,4
  293. 694 PRINT#1,CHR$(145)
  294. 696 PRINT#1,CHR$(15)"[213][192][192][192][192][192][192][192][192][178][192][192][192][192][192][192][178][192][192][201]"CHR$(8)
  295. 698 IFNR$=""THENNR$="    "
  296. 700 PRINT#1,CHR$(15)"[221]"CHR$(14)NR$CHR$(15)"[221]      [221]"ID$"[221]"CHR$(8)
  297. 702 PRINT#1,CHR$(15)"[171][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][177][192][192][179]"CHR$(8)
  298. 704 PRINT#1,CHR$(15)"[221] "HE$" [221]"CHR$(8)
  299. 706 PRINT#1,CHR$(15)"[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]"CHR$(8)
  300. 708 CO$="[195]OMMODORE  "+CO$
  301. 710 PRINT#1,CHR$(15)"[221]  "CHR$(17)CO$CHR$(15)" [221]"CHR$(8)
  302. 712 PRINT#1,CHR$(15)"[171][192][192][192][192][178][192][192][192][192][192][192][192][192][192][192][192][192][192][179]"CHR$(8)
  303. 714 MO$=MO$+"'ER [205]ODUS"
  304. 716 PRINT#1,CHR$(15)"[221]"FL$"[221]"CHR$(17)MO$" [221]"CHR$(8)
  305. 718 PRINT#1,CHR$(15)"[202][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][203]"CHR$(15)
  306. 720 GOSUB 238
  307. 722 RETURN
  308. 724 REM ---- MODUL DR DIR+ET ----------
  309. 726 PRINT"":AW$="                                "
  310. 728 PRINT"";AW$
  311. 730 PRINT"[145]";AW$
  312. 732 PRINT"";AW$
  313. 734 PRINT"[145]";AW$
  314. 736 PRINT"";AW$
  315. 738 PRINT"[145][145][145][145][145]AUF GEHT'S -"
  316. 740 PRINT""
  317. 742 PRINT"[145]JETZT WIRD GEDRUCKT !"
  318. 744 PRINT"DIRECTORY + AUFKLEBEETIKETT"
  319. 746 CLOSE 1:OPEN 1,4
  320. 748 PRINT#1,CHR$(145)
  321. 750 PRINT#1,"   "CHR$(14);HE$;CHR$(15);"    DISK-NR:";CHR$(14);NR$;CHR$(15)
  322. 752 PRINT#1,"   ";:FOR I=1 TO 52:PRINT#1,"[195]";:NEXT:PRINT#1
  323. 754 PRINT#1,"   "NA$(0);" ";NA$(13);" ";NA$(26)
  324. 756 PRINT#1,"   "NA$(1);" ";NA$(14);" ";NA$(27)
  325. 758 PRINT#1,"   "NA$(2);" ";NA$(15);" ";NA$(28)
  326. 760 PRINT#1,"   "NA$(3);" ";NA$(16);" ";NA$(29)
  327. 762 PRINT#1,"   "NA$(4);" ";NA$(17);" ";NA$(30)
  328. 764 PRINT#1,"   "NA$(5);" ";NA$(18);" ";NA$(31)
  329. 766 PRINT#1,"   "NA$(6);" ";NA$(19);" ";NA$(32)
  330. 768 PRINT#1,"   "NA$(7);" ";NA$(20);" ";NA$(33)
  331. 770 PRINT#1,"   "NA$(8);" ";NA$(21);" ";NA$(34)
  332. 772 PRINT#1,"   "NA$(9);" ";NA$(22);" ";NA$(35)
  333. 774 PRINT#1,"   "NA$(10);" ";NA$(23);" ";NA$(36)
  334. 776 PRINT#1,"   "NA$(11);" ";NA$(24);" ";NA$(37)
  335. 778 PRINT#1,"   "NA$(12);" ";NA$(25);" ";NA$(38)
  336. 780 PRINT#1,"   ";:FOR I=1 TO 52:PRINT#1,"[195]";:NEXT:PRINT#1
  337. 782 PRINT#1,"   STAND:"TE$"                    ";FR$;"  BLOCKS FREE"
  338. 784 PRINT#1:PRINT#1:CLOSE 1
  339. 786 CLOSE 1:OPEN 1,4
  340. 788 PRINT#1,CHR$(145)
  341. 790 GOSUB 696
  342. 792 RETURN
  343. 794 REM ---- MODUL NOCHMAL ------------
  344. 796 PRINT"":AW$="                                "
  345. 798 PRINT"";AW$
  346. 800 PRINT"[145]";AW$
  347. 802 PRINT"";AW$
  348. 804 PRINT"[145]";AW$
  349. 806 PRINT"";AW$
  350. 808 PRINT"[145][145][145][145][145]WOLLEN SIE NOCH MEHR DRUCKEN ?"
  351. 810 PRINT""
  352. 812 PRINT"[145](J/N)"
  353. 814 GETAN$:IF AN$="" THEN 814
  354. 816 IF AN$="J" THEN RUN 134
  355. 818 IF AN$="N" THEN PRINT"HOFFENTLICH SIND DIE AUSDRUCKE"
  356. 820 IF AN$="N" THEN PRINT"ZU IHRER ZUFRIEDENHEIT AUS-"
  357. 822 IF AN$="N" THEN PRINT"AUSGEFALLEN  !!"
  358. 824 IF AN$="N" THEN PRINT"[145]TSCHUESS - "
  359. 826 IF AN$="N" THEN PRINT"BIS BALD !!"
  360. 828 IF AN$="N" THEN POKE198,0:WAIT198,1:PRINT"[147]":RETURN
  361.